home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0032_PCBOARD Data.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-02  |  3KB  |  76 lines
  1. {
  2. HELGE HELGESEN
  3.  
  4. > but i don't know how to change the user information
  5. > (Like users City/State For instance).
  6.  
  7. Let's see... I'm not sure if it works if the user you want to
  8. modify is on-line, but if he isn't, this should work.
  9.  
  10. First, locate the user in the index Files. It's organized as
  11. this. if the name is less than 25 Chars, it's filled up With
  12. spaces.
  13. }
  14.  
  15. Type
  16.   TUserIndex = Record
  17.     RecNo : Word;
  18.     Name  : Array[1..25] of Char;
  19.   end;
  20.  
  21. {
  22. The first letter of name is used as extention to the index Files.
  23. To find me, you have to look into the File "PCBNDX.H". It's
  24. stored as FIRSTNAME LASTNAME. (The path to the user indexes are
  25. located in line 28 of "PCBOARD.DAT".)
  26.  
  27. When you have found the Record no, simply seek to the Record in
  28. the File specified in line 29 of "PCBOARD.DAT". The layout looks
  29. like this:
  30.  
  31.     Offset   Type   Length  Description
  32.     ------  ------  ------  -----------
  33.        0    str       25    Full Name
  34.       25    str       24    City
  35.       49    str       12    PassWord
  36.       61    str       13    Business / Data Phone Number
  37.       74    str       13    Home / Voice Phone Number
  38.       87    str        6    Last Date On (format:  YYMMDD)
  39.       93    str        5    Last Time On (format HH:MM)
  40.       98    Char       1    Expert Mode (Y or N)
  41.       99    Char       1    Default Transfer Protocol (A-Z, 0-9)
  42.      100    bitmap     1    Bit Flags (see below)
  43.      101    str        6    Date of Last DIR Scan (most recent File found)
  44.      107    Char       1    Security Level (0-255)
  45.      108    int        2    Number of Times On
  46.      110    Char       1    Page Length (# lines displayed before prompt)
  47.      111    int        2    Number of Files Uploaded
  48.      113    int        2    Number of Files Downloaded
  49.      115    bdReal     8    Total Bytes Downloaded Today
  50.      123    str       30    Comment Field #1 (user comment)
  51.      153    str       30    Comment Field #2 (sysop comment - user can't see)
  52.      183    int        2    Elapsed Time On (in minutes)
  53.      185    str        6    Registration Expiration Date (YYMMDD)
  54.      191    Char       1    Expired Registration - Security Level
  55.      192    Char       1    Last Conference In (used For v14.x compatibility)
  56.      193    bitmap     5    Conference Registration Flags (conf 0-39)
  57.      198    bitmap     5    Expired Registration Conference Flags (conf 0-39)
  58.      203    bitmap     5    User Selected Conference Flags (conf 0-39)
  59.      208    bdReal     8    Total Bytes Downloaded
  60.      216    bdReal     8    Total Bytes Uploaded
  61.      224    Char       1    Delete Flag (Y or N)
  62.      225    bsReal     4    Last Message Read Pointer (conference 0)
  63.      229    bsReal     4    Last Message Read Pointer (conference 1)
  64.      ...    bsReal     4    (continued each conference)
  65.      381    bsReal     4    Last Message Read Pointer (conference 39)
  66.      385    long       4    Record Number of USERS.INF Record
  67.      389    bitmap     1    Bit Flags 2 (see below)
  68.      390    str        8    Reserved (do not use)
  69.      398    int        2    Last Conference In (used instead of offset 192)
  70.  
  71. So all you have to do is to read the Record, make the
  72. modifications and Write it back.
  73.  
  74. Just remember to open the Files in shared mode! (FileMode:=66;).
  75. }
  76.